home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 27 / PC FORMAT.iso / drivers / necgdi / disk2 / fact / shell2.ps_ / shell2.ps
Encoding:
Text File  |  1994-06-06  |  2.7 KB  |  38 lines
  1. true setpacking 1 setvm systemdict begin/version(1.0)def/stpgversion(V1433)def
  2. end statusdict begin/revision 5 def/product(Ecosys W-400)readonly def end 0 setvm
  3. userdict begin/$printerdict 40 dict def end statusdict begin $printerdict
  4. begin/mtx [1.0 0.0 0.0 1.0 0.0 0.0] def 1 setvm/#copies 1 def/dopage{//statusdict
  5. begin/jobstate(printing)def margins exch 4 -1 roll add 3 1 roll add manualfeed{manualfeedtimeout}{0}ifelse
  6. #copies frametoprinter/jobstate(busy)def end}bind def/setpage{//$printerdict
  7. begin setpapersize/proc exch def/yoffset exch def/xoffset exch def/height
  8. exch def/width exch def 300 72 div 0 0 -300 72 div xoffset neg height
  9. yoffset add mtx astore width height mul framelimit gt{/height framelimit
  10. width idiv def}if width height/proc load framedevice 60 45{dup mul
  11. exch dup mul add 1 exch sub}setscreen{}settransfer initgraphics erasepage
  12. end}bind def/papersetup{//$printerdict begin/framelimit 1310720 def
  13. 0{304 3200 57 25{50 59//dopage exec}0//setpage exec}bind def 1{296
  14. 3407 55 51{50 56//dopage exec}1//setpage exec}bind def 2{258 3050 58
  15. 56{50 56//dopage exec}2//setpage exec}bind def 3{304 4100 57 54{50
  16. 59//dopage exec}3//setpage exec}bind def 4{206 2380 50 47{50 50//dopage
  17. exec}4//setpage exec}bind def 5{256 2935 66 60{50 53//dopage exec}5//setpage
  18. exec}bind def 6{137 2170 51 35{45 33//dopage exec}6//setpage exec}bind
  19. def 7{146 2780 60 31{40 30//dopage exec}7//setpage exec}bind def 8{153
  20. 2520 55 30{35 34//dopage exec}8//setpage exec}bind def 9{230 2624 53
  21. 24{40 37//dopage exec}9//setpage exec}bind def 10{224 2606 59 32{60
  22. 100//dopage exec}10//setpage exec}bind def end}bind def/initpaper{//papersetup
  23. exec//userdict begin/letter//$printerdict 0 get def/lettersmall//$printerdict
  24. 0 get def/legal//$printerdict 3 get def/a4//$printerdict 1 get def/a4small//$printerdict
  25. 1 get def/a5//$printerdict 4 get def/b5//$printerdict 5 get def/exc//$printerdict
  26. 2 get def/7.25x10.5inchtray//$printerdict 2 get def/com10//$printerdict
  27. 7 get def/4.125x9.5envelope//$printerdict 7 get def/monarch//$printerdict
  28. 6 get def/3.875x7.5envelope//$printerdict 6 get def/dl//$printerdict
  29. 8 get def/110x220envelope//$printerdict 8 get def/c5//$printerdict
  30. 9 get def/162x229envelope//$printerdict 9 get def/note{papersize dup//$printerdict
  31. exch known not{pop 0}if//$printerdict exch get exec}bind def end}bind
  32. def end end 1 setvm statusdict begin serverdict begin/setnulldevice{nulldevice//$printerdict/mtx
  33. get setmatrix}bind def/setrealdevice{papersize dup//$printerdict exch
  34. known not{pop 0}if dup setpapersize//$printerdict exch get exec}bind
  35. def/productinit{//statusdict begin true blackwriter//$printerdict begin
  36. initpaper end end}bind def end end cleardictstack clear 0 setvm false
  37. setpacking
  38.